* lisp/auth-source.el (auth-source-backend-parse): `return' -> cl-return.

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 3b60bd88d55a965d91a681ff221510a92f9b9887..01d12c2614138d51c353dfcca098d62ef987ad3b 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -364,9 +364,9 @@ soon as a function returns non-nil.")
   "Create an auth-source-backend from an ENTRY in `auth-sources'."
 
   (let (backend)
-    (dolist (f auth-source-backend-parser-functions)
+    (cl-dolist (f auth-source-backend-parser-functions)
       (when (setq backend (funcall f entry))
-        (return)))
+        (cl-return)))
 
     (unless backend
       ;; none of the parsers worked